Imports CapaDeDatos
Public Class nImpRecCuenta
  Private  ImpRecCuenta as dImpRecCuenta= New dImpRecCuenta()
    Public Function Insertar(ByVal IdRecibo As String, ByVal IdCuenta As String, ByVal Importe As String) As Boolean
        If IdRecibo <> "" And IdCuenta <> "" And Importe <> "" Then
            Return ImpRecCuenta.Insertar(IdRecibo, IdCuenta, Importe)
        End If
        Return False
    End Function
  Public Function Eliminar(ByVal IdImpRecCuenta as String) as BOOLEAN
     if IdImpRecCuenta <> "" then 
       return ImpRecCuenta.Eliminar(IdImpRecCuenta )
     End If
     Return false
    End Function
    Public Function EliminarRecibo(ByVal IdRecibo As String) As Boolean
        Dim exito = True
        Dim dtsImputaciones As DataSet = ImpRecCuenta.BuscarFiltrado("", "", IdRecibo)
        For Each row As DataRow In dtsImputaciones.Tables(0).Rows
            exito = exito And ImpRecCuenta.Eliminar(row("IdImpRecCuenta").ToString)
        Next
        Return exito
    End Function
  Public Function BuscarFiltrado(ByVal IdImpRecCuenta as String,ByVal IdRecibo as String,ByVal IdCuenta as String) as DATASET
     Return ImpRecCuenta.BuscarFiltrado(IdImpRecCuenta ,IdRecibo ,IdCuenta ) 
  End Function
End Class
